programa PrQuestap01;

usar crt;

var 
	st : palavra;
	N : inteiro;
	cont_vogal, i, S : inteiro;
	
comeco
   (* TELA DE APRESENTACAO =============================================*)

     escreveln(' * UFCG');
     escreveln(' * DSC');
     escreveln(' *');
     escreveln(' *  DICIPLINA');
     escreveln(' *  PROFESSORA');
     escreveln(' *');
     escreveln(' *  ASSUNTO TRATADO');
     escreveln(' *  QUESTAO          : Questao 01');
     escreveln(' *');
     escreveln(' *  ALUNOS           : ----------------------------- - 00000000'); 
     escreveln(' *                     ----------------------------- - 00000000');

(*EXECUCAO DO ALGORITMO =============================================*)

	 S := 0;
     (* st := S; *) (*situacao de erro*)
     para  N := 1 ate 37 faca 
     	 comeco
         	S := S + ( N * (N + 1) ) / ( 38 - N );
         fim;

     escreveln('O valor de S eh: ');
     escreveln(2);
fim.
